home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / education / e097.dms / e097.adf / HELP_Style.AMOS / HELP_Style.amosSourceCode
Encoding:
AMOS Source Code  |  1993-03-07  |  1.7 KB  |  51 lines
  1. ' ---------------------------------
  2. ' -                               -
  3. ' - Style Help File               -
  4. ' -                               -
  5. ' - ï¿½ 1993 Neil Wright            -
  6. ' -                               -
  7. ' ---------------------------------
  8. '
  9. '
  10. ' Instructions :- Use the two mouse buttons to scroll the text.
  11. '                 Both mouse buttons exits the program.
  12. '
  13. '
  14. Screen Open 1,320,50,8,Lowres
  15. Screen Display 1,,40,,
  16. Gr Writing 0
  17. Curs Off 
  18. Paper 0 : Cls 0
  19. Ink 2
  20. Print " STYLE "
  21. Zoom 1,0,0,84,8 To 1,40,10,319,50
  22. Locate 0,0 : Cline 
  23. Text 220,45,"Help File"
  24. Draw 0,48 To 320,48
  25. '
  26. Colour Back 0 : Set Rainbow 0,1,290,"","","" : Screen Open 0,640,1000,2,Hires : Palette 0,0
  27. Flash Off : Curs Off : Change Mouse 3 : Cls 0 : Rainbow 0,0,40,290
  28. Screen To Front 1 : Screen 0
  29. C1DAT:
  30. Data $0,$111,$222,$333,$444,$555,$666,$777,$888,$999,$AAA,$BBB,$CCC,$DDD,$EEE,$FFF
  31. Restore C1DAT : For F=0 To 31 Step 2 : Read CD : Rain(0,F)=CD : Rain(0,F+1)=CD : Next F : For F=31 To 261 : Rain(0,F)=$FFF : Next F
  32. Restore C1DAT : For F=230 To 261 Step 2 : Read CD : Rain(0,F)=$FFF-CD : Rain(0,F+1)=$FFF-CD : Next F
  33. Reserve As Chip Work 6,12000 : Bload "df0:Help.asc",6 : Q=Start(6) : Gosub GTXT
  34. For F=1 To Val(S$) : Gosub GTXT : Locate 0,F
  35.    If Left$(S$,2)="$C" Then Centre Right$(S$,Len(S$)-2) : Goto NURK
  36.    Print S$
  37. NURK: Next F : Hide : Auto View On : X=70 : For Z=400 To 70 Step -4 : Screen Display 0,,Z,, : Wait Vbl : Next Z
  38. VV:
  39. M=Mouse Key
  40. If M=2 Then Inc X : Inc X : Inc X : Inc X
  41. If M=1 Then Dec X : Dec X : Dec X : Dec X
  42. Screen Display 0,,X,, : Wait Vbl 
  43. If M=3 Then Goto KWIT
  44. Goto VV
  45. GTXT: S$=""
  46. JIMMY:
  47. If Peek(Q)=10 or Peek(Q)=0 Then Inc Q : Return 
  48. S$=S$+Chr$(Peek(Q)) : Inc Q : Goto JIMMY
  49. KWIT:
  50. Rainbow 0,0,40,0 : Erase 6 : Cls 0 : Change Mouse 1 : Show On 
  51. End